home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 83
/
64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_A.d64
/
fast format
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
43 lines
0 ifpeek(828)=99then2
1 ifa=0thena=1:poke828,99:load"ff.obj",8,1
2 fori=1to20:ln$=ln$+"[192]":ls$=ls$+" ":next:rd$="[144] "
4 la$=left$(ln$,18)
6 ur$(1)="[176]"+la$+"[174]":ur$(2)="[221]"+left$(ls$,18)+"[221]":ur$(3)="[173]"+left$(ln$,18)+"[189]
7 [151] 53280,1:[151] 53281,1:[153]"loadstop":[141]100
8 [153]"ascatn(NULL)(NULL)asc(NULL)(NULL)(NULL)atn(NULL) 11.0"
9 [153][166]3)"by mid$an (NULL)usch"
10 [153][163]1)"str$iskette einlegen,":[153][163]3)"dann <(NULL)val(NULL)(NULL)(NULL)(NULL)>!"
11 [161]t$:[139]t$[179][177][199](13)[167]11
12 [141]200
19 [151]19,64:[133]"contstr$iskname:";n$:[151]19,0:[153]:[153]:n$[178][200](n$,16)
20 [153][163]11);:[151]19,64:[133]"contright$str$-(NULL)ennung:";i$:[151]19,0:[153]:[153]
21 i$[178][200](i$,2)
30 [153][163]11);:[151]19,64:[133]"cont(NULL)aufwerk-(NULL)r.";d$:[151]19,0:[153]
31 d$[178][200](d$,1):d[178][197](d$)
35 [139]d[179][177]8[175]d[179][177]9[167]30
40 [158]49152,n$,i$,d
42 [141]300
50 [153]"def(NULL)och eine str$iskette":[153][163]1)"defformatieren? (j/n)"
60 [161]t$:[139]t$[178]"j"[167][138]
70 [139]t$[178]"n"[167][151]646,0:[153]"load":[128]
80 [137]60
100 [153]""[170]ur$(1)
102 [129]i[178]1[164]5:[153]ur$(2)[170]rd$[170]"":[130]
103 [153]ur$(3)[170]rd$
104 [153][163]2)rd$[170][200](ls$,18)
105 [151]214,2:[151]211,2:[158]58640
106 [142]
200 [151]214,10:[151]211,10:[158]58640
202 [153]"cont"[170]ls$[170][200](ls$,7)
204 [129]i[178]1[164]6:[153][163]10)"cont"[170]ls$[200](ls$,7)[170]rd$:[130]
206 [153][163]11)""[170]ls$[170][200](ls$,7)
207 [151]214,11:[151]211,11:[158]58640
210 [142]
300 [151]214,15:[151]211,0:[158]58640
301 [153]"def"[170]ur$(1)
302 [129]i[178]1[164]4:[153]ur$(2)[170]rd$[170]"def":[130]
303 [153]ur$(3)[170]rd$
304 [153][163]2)rd$[170][200](ls$,18)
305 [151]214,17:[151]211,1:[158]58640
306 [142]